日志
智能软件的核心部分
|
这篇软件是对我的智能理论的应用，当然为了编程的简单，我在编程的过程中做了许多妥协，因而它并不完美，在框架理论上有许多的缺陷。但就像人的智能也存在缺陷一样，只要它能通过学习适应环境就可以了。
我记得在倚天屠龙记中，张无忌与小昭被困石洞中唱的一首歌，就指出了，世上没有完美无缺的事物，事事追求完美无缺反而不好。在现有的时间精力下，我也曾经想让我的编程框架理论完美，但困难重重，耗费大量时间，精力总是难于让人满意，最终，我整出了这个有缺陷，但我认为有效的草稿（指框架）。
这里先将我的草稿分享给大家。根据我的编程经验，对草稿的修改将要耗费大量时间，即使草稿修改完成了，也只是核心功能的编程完成，其它的一些功能的编程获得我可能还要花精力学习，……。最终的完成可能需要很长的时间。
虽然简单，但它给出了我们今后编写智能软件的模型，方法。比如：将顺序计算转化为并行计算的方法，如何通过记忆柱实现记忆回忆，记忆柱的联系模式，如何将奖惩转化为对记忆柱的易化抑制，如何确定主注意对象及主注意目的对象等等……。
Open "d:\ zzymddx.txt" For Random As 1 Len = 10
Open "d:\ cjcr.txt" For Random As 2 Len = 10 '刺激传入
Open "d:\ zzydx.txt" For Random As 3 Len =10 '主注意对象
Open "d:\ ztzs.txt" For Random As 4 Len =10 '状态中枢
Open "d:\ xf.txt" For Random As 5 Len =10 '兴奋的记忆柱
Open "d:\ xfy.txt" For Random As 6 Len =10 '易兴奋的记忆柱
Open "d:\ ztzsjc.txt" For Random As 7 Len =10 '状态中枢对应的奖惩部分
Open "d:\ qdzs.txt" For Random As 9 Len =10 '强度中枢
Open "d:\ zzydxxz.txt" For Random As 11 Len =10
Open "d:\ jcyq.txt" For Random As 12 Len =10
Open "d:\ Jczs.txt" For Random As 13 Len =10
Y=0
For n=1 to 8000
Put 1,n,y '1到4000是一时刻兴奋的。4001到8000是另一时刻兴奋的。
Put 2,n,y '1到2000是兴奋到一定强度的易兴奋的。2001到4000是主注意对象，4001到其它是另一次兴奋。
Put 3,n,y '1到4000是一时刻兴奋的。4001到8000是另一时刻兴奋的。主注意目的对象。。
Put 4,n,y '起是传入刺激
Put 5,n,y '是状态中枢的兴奋
Put 6,n,y
Put 7,n,y
Put 9,n,y
Put 11,n,y
Put 12,n,y
Put 13,n,y
next
close 1
close 2
close 3
close 4
close 5
close 6
close 7
close 9
close 11
close 12
close 13
Open "d:\ zzymddx.txt" For Random As 1 Len = 10
Open "d:\ cjcr.txt" For Random As 2 Len = 10
Open "d:\ zzydx.txt" For Random As 3 Len =10
Open "d:\ ztzs.txt" For Random As 4 Len =10
Open "d:\ xf.txt" For Random As 5 Len =10
Open "d:\ xfy.txt" For Random As 6 Len =10
Open "d:\ ztzsjc.txt" For Random As 7 Len =10 '状态中枢的奖惩
Open "d:\ textfil.txt" For Random As 8 Len =10
Open "d:\ qdzs.txt" For Random As 9 Len =10 '强度中枢
Open "d:\ zzydxxz.txt" For Random As 11 Len =10
Open "d:\ jcyq.txt" For Random As 12 Len =10
Open "d:\ Jczs.txt" For Random As 13 Len =10
rstart
Drecordnumber= (subzrecordnumber-100)/2 ‘段记录
dim label
qzqtime=zqtime '设置时间标志。
one=1
zqtime=date+time '这一兴奋周期的时间.它是记忆柱总的兴奋时间，也是展示框的兴奋时间
if label=1 then '确定读的展示框的标志。
label=2
qlabel=1
else
label=1
qlabel=2
end if
for zsk=1 to 7 '获取与设置读写的展示框
qlabelrecordnumber=abs(label-2)*4000+1
put zsk,qlabelrecordnumber,one-1
next 'for zsk=1 to 7
labelrecordnumber=(label-1)*4000+1 ‘不易兴奋的记忆柱对易兴奋的抑制
get 5,labelrecordnumber,labelnumber
for recordnumber=1 to labelnumber
get 5, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
jyzxfqdrecordnumber=xfrecordnumber-78+69+(qlabel-1)*3 '获得记忆柱的前兴奋强
xfqdrecordnumber＝-jyzxfqdrecordnumber
xfrecordnumber＝xfrecordnumber＋jyzrecordnumber
Call cjcr(qlabel,xfrecordnumber, xfqdrecordnumber, zqtime, qzqtime,label,jyzxfqd) '刺激传入
ajyzxfqdrecordnumber＝ajyzxfqdrecordnumber＋jyzxfqdrecordnumber
next
bypjyzqd＝ajyzxfqdrecordnumber/（labelnumber*5) '不易兴奋的记忆柱的平均抑制强度
get 3,labelrecordnumber,labelnumber
for recordnumber=1 to labelnumber
get 3, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
jyzxfqdrecordnumber=xfrecordnumber-78+69+(qlabel-1)*3+zrecordnumber '获得记忆柱的前兴奋强
get 3, jyzxfqdrecordnumber, jyzxfqd
ajyzxfqdrecordnumber＝ajyzxfqdrecordnumber＋jyzxfqd
next
zzydxpjyzqd＝ajyzxfqdrecordnumber/（labelnumber) '获得主注意对象的易兴奋记忆柱的平均兴奋强度
get 6,labelrecordnumber,labelnumber
for recordnumber=1 to labelnumber
get 6, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
jyzxfqdrecordnumber=xfrecordnumber-78+69+(qlabel-1)*3 '获得记忆柱的前兴奋强
get 8, jyzxfqdrecordnumber, jyzxfqd
get 8, xfrecordnumber-78+80, zslabel ‘获得中枢标志
if jyzxfqd > zzydxpjyzqd*1.35 and zslabel=1 then ‘记入11以进行选择主注意对象
get 11, qlabelrecordnumber,jrlabel ‘记入label
put 11, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 11, qlabelrecordnumber,jrlabel+1
end if
if zslabel=2 and jyzxfqd>10 then ‘记入12以进行进行奖惩预期
get 12, qlabelrecordnumber,jrlabel ‘记入label
put 12, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 12, qlabelrecordnumber,jrlabel+1
end if
ajyzxfqd＝ajyzxfqd＋jyzxfqd
next
'获得主注意对象
get 11, qlabelrecordnumber,labelnumber
dim zzydx(5)
dim qdzzydx(5)
for n=1 to 5
qdzzydx(n)=0
next
for recordnumber=1 to labelnumber
get 11, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
jyzxfqdrecordnumber=xfrecordnumber-78+69+(qlabel-1)*3 '获得记忆柱的前兴奋强
get 8, jyzxfqdrecordnumber, jyzxfqd
for n=1 to 5
if jyzxfqd> qdzzydx(1) then
qdzzydx(5)=qdzzydx（4）
qdzzydx（4）=qdzzydx（3）
qdzzydx（3）=qdzzydx（2）
qdzzydx（2）=qdzzydx（1）
qdzzydx（1）=jyzxfqd
zzydx(5)=zzydx（4）
zzydx（4）=zzydx（3）
zzydx（3）=zzydx（2）
zzydx（2）=zzydx（1）
zzydx(1)=xfrecordnumber
goto zzydx
end if
if jyzxfqd> qdzzydx(2) then
qdzzydx(5)=qdzzydx（4）
qdzzydx（4）=qdzzydx（3）
qdzzydx（3）=qdzzydx（2）
qdzzydx（2）=jyzxfqd
zzydx(5)=zzydx（4）
zzydx（4）=zzydx（3）
zzydx（3）=zzydx（2）
zzydx(2)=xfrecordnumber
goto zzydx
end if
if jyzxfqd> qdzzydx(3) then
qdzzydx(5)=qdzzydx（4）
qdzzydx（4）=qdzzydx（3）
qdzzydx（3）=jyzxfqd
zzydx(5)=zzydx（4）
zzydx（4）=zzydx（3）
zzydx(3)=xfrecordnumber
goto zzydx
end if
if jyzxfqd> qdzzydx(4) then
qdzzydx(5)=qdzzydx（4）
qdzzydx（4）=jyzxfqd
zzydx(5)=zzydx（4）
zzydx(4)=xfrecordnumber
goto zzydx
end if
if jyzxfqd> qdzzydx(5) then
qdzzydx（5）=jyzxfqd
zzydx(5)=xfrecordnumber
goto zzydx
end if
next
zzydx
next
for n=1 to 5
next
ypjyzqd＝ajyzxfqd/（labelnumber*5) '易兴奋的平均
for zsk=1 to 7
labelrecordnumber=(label-1)*4000+1
qlabelrecordnumber= abs(label-2)*4000+1
get zsk,labelrecordnumber,labelnumber
for recordnumber=1 to labelnumber
get zsk, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
jyzxfqdrecordnumber=xfrecordnumber-78+69+(qlabel-1)*3 '获得记忆柱的前兴奋强度
xfccrecordnumber=xfrecordnumber-78+88 '有多少传出recordnumber
get 8,jyzxfqdrecordnumber,jyzxfqd
get 8,xfrecordnumber-78+77,xftimerecordnumber
qjyzxfsjlrecordnumber=xfrecordnumber-78+68+(qlabel-1)*3 ‘前兴奋时间
get 8,qjyzxfsjlrecordnumber,qjyzxfsjl
'没有必要再获取时间
select case zsk
case 1 'zzymddx
jjyzxfqdrecordnumber=jyzxfqdrecordnumber+zrecordnumber
cjyzxfqdrecordnumber=jyzxfqdrecordnumber+zrecordnumber*2
jxfrecordnumber=xfrecordnumber+zrecordnumber
cxfrecordnumber=xfrecordnumber+zrecordnumber*2
n=qqdjcyq／ '奖惩预期强度除以平均奖惩强度
zzymddxqd=pjxfqd*n*2 '
jyzxfqd=zzymddxqd
call xfjy(xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfcc(xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk,z)
case 2 'cjcr'传入的写只记入展示框，而不读取传出。它传出的兴奋应是其他传出的2倍。
get zsk, labelrecordnumber+recordnumber+2000,xfqdrecordnumber 'xfqdrecordnumber用passbyref解决后面的直到if。要如何不易兴奋的抑制易兴奋的
yxfrecordnumber= xfrecordnumber+azrecordnumber ‘8500
yxfqdrecordnumber= xfqdrecordnumber
for yby=1 to 2
cdtc=xfrecordnumber+azrecordnumber*(yby-1)-78+100-azrecordnumber+1
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
if yby=1 then
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
else
yxfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,yxfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=10 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 6, qlabelrecordnumber, jrlabel
put 6, qlabelrecordnumber+jrlabel+1 , yxfrecordnumber
put 6, qlabelrecordnumber,jrlabel+1
put 8,yxfrecordnumber-78+77,zqtime
end if
end if
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
case 3 'zzydx
'get '获得状态中枢奖与惩的兴奋强度，进行整合，然后乘以，获得主的兴奋强度
'put '写入重新计算获得的奖惩的兴奋强度加主的五分之一。
jjyzxfqdrecordnumber=jyzxfqdrecordnumber+zrecordnumber
cjyzxfqdrecordnumber=jyzxfqdrecordnumber+zrecordnumber*2
jxfrecordnumber=xfrecordnumber+zrecordnumber
cxfrecordnumber=xfrecordnumber+zrecordnumber*2
get 8, jjyzxfqdrecordnumber, jjyzxfqd
get 8, cjyzxfqdrecordnumber, cjyzxfqd
jcjyzxfqd=jjyzxfqd+cjyzxfqd
n=jcjyzxfqd／ ‘除于基础奖惩兴奋
if n>=0 then
jyzxfqd=3*n*jyzxfqd ‘主的兴奋强度
else
jyzxfqd=2*jyzxfqd ‘主的兴奋强度
end if
jjyzxfqd=jjyzxfqd+jyzxfqd／5
cjyzxfqd=cjyzxfqd+jyzxfqd／5
put 8, jyzxfqdrecordnumber，jyzxfqd
put 8, jjyzxfqdrecordnumber, jjyzxfqd
put 8, cjyzxfqdrecordnumber, cjyzxfqd
jxfrecordnumber=xfrecordnumber+zrecordnumber
cxfrecordnumber=xfrecordnumber+zrecordnumber*2
call xfjy(jxfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfjy(cxfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfjy(xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfcc(xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk,z)
if jyzxfqd>=25 then '易化皮质对应的基本记忆柱群。
get 8,xfrecordnumber-78+87,xfrecordnumber
jyzxfqd=jyzxfqd／3
zjjyzxfqd=jyzxfqd
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
xfrecordnumber=xfrecordnumber+zrecordnumber
jyzxfqd=zjjyzxfqd
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=10 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 6, qlabelrecordnumber,jrlabel ‘记入label
put 6, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 6, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
end if
case 4 ' ztzs展示框分两部分，主部分与奖惩部分。先读取奖惩部分再读取主部分。2000、2001
'get '获得状态中枢奖与惩的兴奋强度，进行整合，然后乘以，获得主的兴奋强度
'put '写入重新计算获得的奖惩的兴奋强度加主的五分之一。
jjyzxfqdrecordnumber=jyzxfqdrecordnumber+zrecordnumber
cjyzxfqdrecordnumber=jyzxfqdrecordnumber+zrecordnumber*2
jxfrecordnumber=xfrecordnumber+zrecordnumber
cxfrecordnumber=xfrecordnumber+zrecordnumber*2
get 8, jjyzxfqdrecordnumber, jjyzxfqd
get 8, cjyzxfqdrecordnumber, cjyzxfqd
jcjyzxfqd=jjyzxfqd+cjyzxfqd
n=jcjyzxfqd／ ‘除于基础奖惩兴奋
if n>=0 then
jyzxfqd=n*jyzxfqd ‘主的兴奋强度
else
jyzxfqd=-1／n*jyzxfqd ‘主的兴奋强度
end if
jjyzxfqd=jjyzxfqd+jyzxfqd／5
cjyzxfqd=cjyzxfqd+jyzxfqd／5
put 8, jyzxfqdrecordnumber，jyzxfqd
put 8, jjyzxfqdrecordnumber, jjyzxfqd
put 8, cjyzxfqdrecordnumber, cjyzxfqd
jxfrecordnumber=xfrecordnumber+zrecordnumber
cxfrecordnumber=xfrecordnumber+zrecordnumber*2
call xfjy(jxfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfjy(cxfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfjy(xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk，z)
call xfcc(xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk,z)
if jyzxfqd>=25 then '易化皮质对应的基本记忆柱群。
get 8,xfrecordnumber-78+87,xfrecordnumber
jyzxfqd=jyzxfqd／3
zjjyzxfqd=jyzxfqd
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
xfrecordnumber=xfrecordnumber+zrecordnumber
jyzxfqd=zjjyzxfqd
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=10 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 6, qlabelrecordnumber,jrlabel ‘记入label
put 6, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 6, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
end if
get 8,xfrecordnumber-78+67+（qlabel-1）*3,tcxftime
get 8,xfrecordnumber-78+67+（qlabel-1）*3+1,tcxfds
get 8,xfrecordnumber-78+67+（qlabel-1）*3+2,tcxfqda
tccrqd= tcxfqda/ tcxfds
for sjl=1 to qjyzxfsjl
get 8,xfrecordnumber-78+subjyzrecordnumber*4+(subjyzrecordnumber-100)/2*qlabel+sjl,recordnumber 'qlabel兴奋所记录的那些突触的兴奋
'获取突触的兴奋强度tcxfqd,qjyzxfqdrecordnumber/tcxfqd获得本次tc需要加的强度，长期短期时间的改写与记录。
get 8, recordnumber ,tctime ‘所在突的时间
get 8, recordnumber + subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8, recordnumber + subzrecordnumber*2,tccqjy ‘长期记忆
tcxfqd=tcxfqd+ tcdqjy+ tccqjy '长短期
tcxfqd= tcxfds* tcxfqd/ tcxfqda
tcdqjy= tcdqjy+tcxfqd*4/5
tccqjy= tccqjy+tcxfqd/5
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
Next
get 8,xfccrecordnumber,ccjl
for cc=1 to ccjl
8,xfrecordnumber-zrecordnumber+subzrecordnumber*3+cc,cdtc
'传出到记忆柱的突触
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get zsk, qlabelrecordnumber,jrlabel ‘记入label
put zsk, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put zsk, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
tcxfqda=tcxfqda+tcxfqd ‘突触的计算
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
case 5 ' xfby
get 8,xfrecordnumber-78+67+（qlabel-1）*3,tcxftime
get 8,xfrecordnumber-78+67+（qlabel-1）*3+1,tcxfds
get 8,xfrecordnumber-78+67+（qlabel-1）*3+2,tcxfqda
if tcxfqda> then ‘兴奋到一定强度后传入状态中枢
crztzsqd= tcxfqda/3
get 8,xfrecordnumber-78+87,ztzsrecordnumber
Call cjcr(qlabel, ztzsrecordnumber, crztzsqd,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 9, qlabelrecordnumber,jrlabel ‘记入label
put 9, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 9, qlabelrecordnumber,jrlabel+1
put 9, xfrecordnumber-78+77,zqtime
end if
end if
get 8,xfrecordnumber-78+86,xfqdzsrecordnumber '对强度中枢的兴奋
Call cjcr(qlabel, xfqdzsrecordnumber, tcxfqda,zqtime,qzqtime,label,jyzxfqd)
get 9, qlabelrecordnumber, jrlabel
put 9， qlabelrecordnumber+jrlabel+1 , yxfrecordnumber
put 9， qlabelrecordnumber,jrlabel+1
put 8,yxfrecordnumber-78+77,zqtime
yzyqd=tcxfqda*2/3
yzxfqdrecordnumber=-yzyqd '不易兴奋的对不易兴奋的抑制
yzxfrecordnumber=xfrecordnumber+jyzrecordnumber
Call cjcr(qlabel,yzxfrecordnumber, yzxfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
tccrqd= tcxfqda/ tcxfds
for sjl=1 to qjyzxfsjl
get 8,xfrecordnumber-78+subjyzrecordnumber*4+(subjyzrecordnumber-100)/2*qlabel+sjl,recordnumber 'qlabel兴奋所记录的那些突触的兴奋
'获取突触的兴奋强度tcxfqd,qjyzxfqdrecordnumber/tcxfqd获得本次tc需要加的强度，长期短期时间的改写与记录。
get 8, recordnumber ,tctime ‘所在突的时间
get 8, recordnumber + subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8, recordnumber + subzrecordnumber*2,tccqjy ‘长期记忆
tcxfqd=tcxfqd+ tcdqjy+ tccqjy '长短期
tcxfqd= tcxfds* tcxfqd/ tcxfqda
tcdqjy= tcdqjy+tcxfqd*4/5
tccqjy= tccqjy+tcxfqd/5
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
Next
get 8,xfccrecordnumber,ccjl
for cc=1 to ccjl
8,xfrecordnumber-zrecordnumber+subzrecordnumber*3+cc,cdtc
'传出到记忆柱的突触
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
tcxfqda=tcxfqda+tcxfqd ‘突触的计算
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
case 6 'xfy
get 8,xfrecordnumber-78+67+（qlabel-1）*3,tcxftime
get 8,xfrecordnumber-78+67+（qlabel-1）*3+1,tcxfds
get 8,xfrecordnumber-78+67+（qlabel-1）*3+2,tcxfqda
get 8,xfrecordnumber-78+86,xfqdzsrecordnumber '对强度中枢的兴奋
Call cjcr(qlabel, xfqdzsrecordnumber, tcxfqda,zqtime,qzqtime,label,jyzxfqd)
get 9, qlabelrecordnumber, jrlabel
put 9， qlabelrecordnumber+jrlabel+1 , yxfrecordnumber
put 9， qlabelrecordnumber,jrlabel+1
put 8,yxfrecordnumber-78+77,zqtime
yzyqd=tcxfqda*2/3
yzxfqdrecordnumber=-yzyqd '易兴奋的对不易兴奋的易化
yzxfrecordnumber=xfrecordnumber+jyzrecordnumber
Call cjcr(qlabel,yzxfrecordnumber, yzxfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
tccrqd= tcxfqda/ tcxfds
for sjl=1 to qjyzxfsjl
get 8,xfrecordnumber-78+subjyzrecordnumber*4+(subjyzrecordnumber-100)/2*qlabel+sjl,recordnumber 'qlabel兴奋所记录的那些突触的兴奋
'获取突触的兴奋强度tcxfqd,qjyzxfqdrecordnumber/tcxfqd获得本次tc需要加的强度，长期短期时间的改写与记录。
get 8, recordnumber ,tctime ‘所在突的时间
get 8, recordnumber + subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8, recordnumber + subzrecordnumber*2,tccqjy ‘长期记忆
tcxfqd=tcxfqd+ tcdqjy+ tccqjy '长短期
tcxfqd= tcxfds* tcxfqd/ tcxfqda
tcdqjy= tcdqjy+tcxfqd*4/5
tccqjy= tccqjy+tcxfqd/5
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
Next
get 8,xfccrecordnumber,ccjl
for cc=1 to ccjl
8,xfrecordnumber-zrecordnumber+subzrecordnumber*3+cc,cdtc
'传出到记忆柱的突触
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
tcxfqda=tcxfqda+tcxfqd ‘突触的计算
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
Case 9 ‘qdzs
‘每个感觉中枢的不易兴奋的都有对应的强度中枢，由强度中枢来兴奋奖惩中枢。
‘以平均兴奋强度作为标准兴奋强度，来计算
‘顺序获得强度展示框的记录。
get 8,xfrecordnumber-78+67+（qlabel-1）*3+1,tcxfds
get 8,xfrecordnumber-78+67+（qlabel-1）*3+2,tcxfqda
tccrqd= tcxfqda/ tcxfds
qdqj=tccrqd／zzydxpjyzqd '强度区间1以下1到2……，8到9，9以上
'获得正整数，1传出到强度中枢的联络区兴奋之，为zzydxpjyzqd*2
'2传出到奖惩中枢
'每个强度记忆柱都应有一个联络区
'传出到奖惩记忆柱
For yi=1 to 2
get 8,xfrecordnumber-78+86，jcrecordnumber
get 8,xfrecordnumber-78+81，zslabel
if zslabel= or then '是奖惩感觉中枢比如饥饿，痛觉等等
qdqj=5*qdqj
end if
cdtc=jcrecordnumber+zrecordnumber*(yi-1)
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
tcxfqda=tcxfqda+tcxfqd ‘突触的计算
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next ‘yi
‘先是传入兴奋的记忆
tccrqd= tcxfqda/ tcxfds
for sjl=1 to qjyzxfsjl
get 8,xfrecordnumber-78+subjyzrecordnumber*4+(subjyzrecordnumber-100)/2*qlabel+sjl,recordnumber 'qlabel兴奋所记录的那些突触的兴奋
'获取突触的兴奋强度tcxfqd,qjyzxfqdrecordnumber/tcxfqd获得本次tc需要加的强度，长期短期时间的改写与记录。
get 8, recordnumber ,tctime ‘所在突的时间
get 8, recordnumber + subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8, recordnumber + subzrecordnumber*2,tccqjy ‘长期记忆
tcxfqd=tcxfqd+ tcdqjy+ tccqjy '长短期
tcxfqd= tcxfds* tcxfqd/ tcxfqda
tcdqjy= tcdqjy+tcxfqd*4/5
tccqjy= tccqjy+tcxfqd/5
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
Next
'获得传出到联络区
qdqjcc=qdqj*8+1
for cc=qdqjcc to 8+qdqjcc
8,xfrecordnumber-zrecordnumber+subzrecordnumber*3+cc,cdtc
'传出到记忆柱的突触
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
tcxfqda=tcxfqda+tcxfqd ‘突触的计算
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
select 13 ‘Jczs
get 8,xfrecordnumber-78+67+（qlabel-1）*3+1,tcxfds
get 8,xfrecordnumber-78+67+（qlabel-1）*3+2,tcxfqda
tccrqd= tcxfqda/ tcxfds
qdqj=tccrqd／zzydxpjyzqd '强度区间1以下1到2……，8到9，9以上
'获得正整数，1传出到强度中枢的联络区兴奋之，为zzydxpjyzqd*2
'三、获得传出到联络区
qdqjcc=qdqj*8+1
for cc=qdqjcc to 8+qdqjcc
8,xfrecordnumber-zrecordnumber+subzrecordnumber*3+cc,cdtc
'传出到记忆柱的突触
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if jyzxfqd>=25 and xftimerecordnumber<qztime then '兴奋记入展示框。对于易兴奋的是10
get 5, qlabelrecordnumber,jrlabel ‘记入label
put 5, qlabelrecordnumber+jrlabel+1 , xfrecordnumber
put 5, qlabelrecordnumber,jrlabel+1
put 8, xfrecordnumber-78+77,zqtime
end if
tcxfqda=tcxfqda+tcxfqd ‘突触的计算
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
end select
‘奖惩预期
‘奖惩中枢兴奋后会强烈兴奋奖惩预期计算中枢。皮质中枢能与奖惩预期计算中枢建立兴奋性记忆联系。
‘预期计算中枢分为9个强度，又分别兴奋9个记忆柱。根据这9个记忆柱的兴奋来计算动力预期值。
‘动力预期值的计算还有状态中枢及事件发生的概率计算来共同决定。
‘奖惩中枢对计算中枢的基础兴奋值是50。通过后天学习的概率预期来调节动力预期。可塑性。
‘Jcjs展示框奖惩计算
'不需要专门设定一个与目的改变对应的中枢。
'1、获得奖惩中枢的易兴奋记忆柱的兴奋情况。qdzsjcy
'2、获得9个预期计算记忆柱的兴奋强度。记录下来。计算奖惩预期强度。
'3、与记录的前一9个预期计算记忆柱的兴奋强度进行比较。计算奖惩预期强度。
'4、9个预期计算记忆柱的兴奋强度，记录下来需要其奖惩预期的计算强度在一定范围内波动，比如15%。
Dim yqjs(9) ‘9个预期计算的记忆柱。
Dim qdyqjs(9)
Dim qqdyqjs(9)
Dim wdqdyqjs(9) ‘这一次奖惩预期稳定时的各柱的兴奋强度
Dim qwdqdyqjs(9) ‘上一次奖惩预期稳定时的各柱的兴奋强度
Dim cqdyqjs(9) ‘qdyqjs (9)- qqdyqjs (9)= cqdyqjs (9)
Dim cfyqjs(9) ‘9个预期计算的记忆柱。
Dim cfqdyqjs(9)
Dim cfqqdyqjs(9)
Dim cfwdqdyqjs(9) ‘这一次奖惩预期稳定时的各柱的兴奋强度
Dim cfqwdqdyqjs(9) ‘上一次奖惩预期稳定时的各柱的兴奋强度
Dim cfcqdyqjs(9) ‘cfqdyqjs (9)- cfqqdyqjs (9)= cfcqdyqjs (9)
Dim cfyjczsrecordnumber, cfyjczsqdrecordnumber
Dim cfbjczsrecordnumber, cfbjczsqdrecordnumber
cfyjczsqdrecordnumber = cfyjczsrecordnumber -78+69+(qlabel-1)*3
cfbjczsqdrecordnumber = cfbjczsrecordnumber -78+69+(qlabel-1)*3
Get 8, cfyjczsqdrecordnumber, cfyjczsqd
Get 8, cfbjczsqdrecordnumber, cfbjczsqd
Dim yjczsrecordnumber, yjczsqdrecordnumber
Dim bjczsrecordnumber, bjczsqdrecordnumber
yjczsqdrecordnumber = yjczsrecordnumber -78+69+(qlabel-1)*3
bjczsqdrecordnumber = bjczsrecordnumber -78+69+(qlabel-1)*3
Get 8, yjczsqdrecordnumber, yjczsqd
Get 8, bjczsqdrecordnumber, bjczsqd ‘获得奖惩中枢的易兴奋的与不易兴奋的兴奋强度
‘不易兴奋的强烈兴奋预期计算中枢相应的记忆柱。易兴奋的相对兴奋较弱，主要作为预期计算的标准。
For yqqdjsz=1 to 9
Jyzxfqdrecordnumber= yqjs(yqqdjsz) -78+69+(qlabel-1)*3
Get 8, Jyzxfqdrecordnumber, qdyqjs(yqqdjsz)
qdyqjs (yqqdjsz)=qdyqjs (yqqdjsz)-pjqdyq
if qdyqjs (yqqdjsz)<0 then
qdyqjs (yqqdjsz)=0
end if
cqdyqjs (yqqdjsz) = qdyqjs (yqqdjsz)- qqdyqjs (yqqdjsz)
next
For yqqdjsz=1 to 9
Jyzxfqdrecordnumber= cfyqjs(yqqdjsz) -78+69+(qlabel-1)*3
Get 8, Jyzxfqdrecordnumber, cfqdyqjs(yqqdjsz)
cfcqdyqjs (yqqdjsz) = cfqdyqjs (yqqdjsz)- cfqqdyqjs (yqqdjsz)
cfqdyqjs (yqqdjsz)=cfqdyqjs (yqqdjsz)-pjqdyq
if cfqdyqjs (yqqdjsz)<0 then
cfqdyqjs (yqqdjsz)=0
end if
next
acyqjs=0
qdyq=0
for js=1 to 9
acyqjs = acyqjs + cqdyqjs (js)* js- cfcqdyqjs (js)* js ‘获得环境状态下主注意对象的奖惩预期
qdyq=qdyq+cqdyqjs (js)+cfcqdyqjs (js)
next
pjqdyq=qdyq／18
if qacyqjs*1.15>acyqjs then
jslabel=1+jslabel
else jslabel=0
end if
qacyqjs=acyqjs
if jslabel=3 then
wdqacyqjs=acyqjs '获得注意对象的动力
for yq=1 to 9
wdqdyqjs(yq)=qdyqjs(yq)
qwdqdyqjs(yq)=wdqdyqjs(yq)
cfwdqdyqjs(yq)=cfqdyqjs(9)
qcfwdqdyqjs(yq)=cfwdqdyqjs(yq)
qqdyqjs(yq)=qdyqjs(yq)
qcfqdyqjs(yq)=cfqdyqjs(yq)
next
end if
for yq=1 to 9
qqdyqjs(yq)=qdyqjs(yq)
qcfqdyqjs(yq)=cfqdyqjs(yq)
next
‘主注意对象的的选择
‘1、当主注意对象的奖惩预期动力大于目的对象的动力的120%开始获得新的目的对象。这时的对象称为前目的对象，其动力预期的值qdjcyq。qqdjcyq是主注意对象的动力预期值。Mdjclabel记录的是前目的对象记录的次数。
‘2、当Mdjclabel小于5时，主注意对象的奖惩预期动力小于目的对象的动力的120%，那么前主注意目的对象清空。qdjcyq，Mdjclabel为0。
'3、当Mdjclabel等于5时，前主注意目的对象成为主注意目的对象。qdjcyq=0
'4、当Mdjclabel大于5时，主注意对象的奖惩预期动力小于目的对象的动力的1.20倍或者大于目的对象的动力，则将主注意对象记入主注意目的对象。如果小于目的对象的动力，则主注意目的对象数不再增加，Mdjclabel=0。
‘主注意对象的奖惩预期大于目的对象的20%开始获得新的目的对象
If qqdjcyq >qdmdjcyq*1.20 then
If qdjcyq=0 then ‘表示还没有开始获得新的目的对象。目的奖惩标志Mdjclabel
Mdjclabel=0
Qdjcyq= qqdjcyq ‘新的目的对象的动力大小标志
End if
If qqdjcyq> qdjcyq*1.20 and qdjcyq>0 then
Mdjclabel=0
Qqdjcyq= qdjcyq
End if
Mdjclabel= Mdjclabel+1
‘开始新的目的对象，将现在的主注意对象记入前目的展示框
if qqdjcyq<= qdjcyq*1.20 then
get 1,2000, qmdlabelnumber
else
qmdlabelnumber=0
end if
get 3,labelrecordnumber,labelnumber
for recordnumber=1 to labelnumber
get 3, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
put 1, 2000+ qmdlabelnumber+ recordnumber, xfrecordnumber ‘2000是前主注意目的展示框的部位
put 1, 2000, qmdlabelnumber+ recordnumber
next
else ‘qdjcyq <=qdmdjcyq*1.20的情况
if Mdjclabel<5 then ‘没被记入过目的展示框。
qdjcyq=0
Mdjclabel=0
Else ‘Mdjclabel>=5，被记入过目的展示框。qdjcyq=0
If qdmdjcyq <=qqdjcyq <qdmdjcyq*1.20 ‘将主注意对象记入目的对象展示框
Mdjclabel= Mdjclabel+1
get 1, labelrecordnumber,labelnumber
put 1, qlabelrecordnumber, labelnumber
for recordnumber=1 to labelnumber
get 1, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
put 1, qlabelrecordnumber + recordnumber, xfrecordnumber ‘2000是前主注意目的展示框的部位
next
get 3,labelrecordnumber,labelnumber
for recordnumber=1 to labelnumber
get 3, labelrecordnumber+recordnumber,xfrecordnumber '读，计算展示框
get 1, qlabelrecordnumber, mdlabelnumber
put 1, qlabelrecordnumber+ mdlabelnumber+1, xfrecordnumber
put 1, qlabelrecordnumber, mdlabelnumber+1
next
else Mdjclabel=0 ‘不能被记入目的对象
End if
end if
if Mdjclabel>=5 then
end if
End if
If Mdjclabel=5 then ‘记入目的对象展示框
Get 1, 2000,qlabelnumber
Put 1, qlabelrecordnumber,qlabelnumber
For recordnumber=1 to qlabelnumber
Get 1, 2000+ recordnumber, xfrecordnumber
Put 1, qlabelrecordnumber+ recordnumber, xfrecordnumber
Next
Qdjcyq=0
Else
If Mdjclabel<6 then
End if
End if
end
next
next 'zsk
50 10 25 1 2
Sub cjcr(byref qlabel,xfrecordnumber, xfqdrecordnumber, zqtime, qzqtime,label，jyzxfqd)
‘主要是修改记忆柱的一些总的参数，没有兴奋后记入展示框，随后根据易与不易来记入
jyzxftimerecordnumber=xfrecordnumber-78+67+（label-1）*3
qjyzxftimerecordnumber=xfrecordnumber-78+67+（qlabel-1）*3
jyzxfqdrecordnumber= xfrecordnumber-78+67+（label-1）*3+2
qjyzxfqdrecordnumber= xfrecordnumber-78+67+（qlabel-1）*3+2
get 8, qjyzxftimerecordnumber, qjyzxftime
get 8, jyzxftimerecordnumber, jyzxftime
get 8, jyzxfqdrecordnumber,jyzxfqd
get 8, qjyzxfqdrecordnumber,qjyzxfqd
if jyzxftime<zqtime then ‘本兴奋周期，这一记忆柱还没有被易化过。
if qjyzxftime=qzqtime then ‘前一兴奋周期它兴奋过。
Jyzxfqd= xfqdrecordnumber+qjyzxfqd/2
Jyzxftime= zqtime
end if
if qjyzxftime<qzqtime then ‘前一兴奋周期它没有兴奋。
Jyzxfqd= xfqdrecordnumber
Jyzxftime= zqtime
end if
Jyzxfqd=Jyzxfqd-ypjyzqd-bypjyzqd
put 8, jyzxftimerecordnumber, jyzxftime
put 8, jyzxfqdrecordnumber,jyzxfqd
end if
end if ‘jyzxftime =qzqtime
if jyzxftime =zqtime then ‘这种情况下，这一刻这个记忆柱的传入不是第一次。
‘可以直接获得记录的传入数
jyzxfqd=jyzxfqd+xfqdrecordnumber
Get 8, xfrecordnumber-78+77, crnumber
put 8, xfrecordnumber-78+77, crnumber+1
jyzxfqd=xfqdrecordnumber+jyzxfqd
put 8, jyzxfqdrecordnumber, jyzxfqd
end if ‘jyzxftime =zqtime
End sub
'兴奋之后传出
get 8,+88,ccqwds
for ccqw=1 to ccqwds
get 8,+3600+ccqw,cdtc '传到突触
'获得突触所在的记忆柱tcszjyz
'tcszjyz+1165 、1166获得标志与时间
get 8,tcszjyz+1165,
get 8,tcszjyz+1166,
next
Sub xfcc(byref xfrecordnumber,qlabel,subjyzrecordnumber,qzqtime,zrecordnumber, zqtime,zsk,z)
get 8,xfrecordnumber-78+67+（qlabel-1）*3,tcxftime
get 8,xfrecordnumber-78+67+（qlabel-1）*3+1,tcxfds
get 8,xfrecordnumber-78+67+（qlabel-1）*3+2,tcxfqda
tccrqd= tcxfqda/ tcxfds
get 8,xfccrecordnumber,ccjl
for cc=1 to ccjl
8,xfrecordnumber-zrecordnumber+subzrecordnumber*3+cc,cdtc
'传出到记忆柱的突触
get 8,cdtc,tctime
'获得突触所在的记忆柱tcszjyz
tcszjyz=(cdtc\zrecordnumber)*zrecordnumber
xfrecordnumber= tcszjyz+ zrecordnumber-100+78+(z-1)*zrecordnumber
get 8,cdtc,tctime ‘所在突的时间
get 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
get 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
tcjytime=(zqtime- tctime)* 24*3600
call tcjy(tcjytime, tcdqjy, tcjytime, tccqjy) ‘计算突触的遗忘 ‘计算遗忘后新的长短期记忆
put 8,cdtc, qztime ‘所在突的时间
put 8,cdtc+ subzrecordnumber,tcdqjy ‘所在突触的短期记忆
put 8,cdtc+ subzrecordnumber*2,tccqjy ‘长期记忆
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3,tcxftime ‘段时间
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+1,tcxfds ‘段突数
get 8,tcszjyz+ zrecordnumber-100+67+（label-1）*3+2,tcxfqda ‘段强度
tcxfqd=tccrqd+ tccqjy+ tcdqjy '长短期
xfqdrecordnumber= tcxfqd
jyzxfqd= tcxfqda
Call cjcr(qlabel,xfrecordnumber,xfqdrecordnumber,zqtime,qzqtime,label,jyzxfqd)
if tcxfqd> then
put 8, tcszjyz+ subzrecordnumber*3 +（label-1）*drecordnumber+1,cdtc
put 8,tcszjyz+zrecordnumber-100+67+（label-1）*3+1, tcxfqda
end if
next
end sub
Sub tcjy(byref dqjytime, dqjyvalue, cqjytime, cqjyvalue) ‘突触记忆
if dqjytime<10 then
dqjyvalue=dqjyvalue*2／3+dqjyvalue/3*(1- dqjytime /10)
end if
if dqjytime >=10 then
dqjyvalue=10/ dqjytime *dqjyvalue*2／3
end if
if cqjytime<24*3600 then
cqjyvalue=cqjyvalue*3/4+cqjyvalue*(1-cqjytime/24*3600)
end if
if cqjytime>=24*3600 then
cqjyvalue=24*3600/cqjytime*cqjyvalue*3/4
end if
end sub
goto restart ‘开始一个新的兴奋周期
